home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / snippet.exe / FSCANBIN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-23  |  3.5 KB  |  115 lines
  1. /* fscanbin.c -- scan binary fields via format string
  2. **
  3. **  public domain by Ray Gardner   Englewood, Colorado   11/29/89
  4. **
  5. **  Usage: fscanbin(FILE *fp, char *format, ...)
  6. **
  7. **  where format string contains specifiers:
  8. **   -ddd  means skip ddd bytes
  9. **   i     means read a 16-bit int
  10. **   l     means read a 32-bit int
  11. **   sddd  means read a character string of up to ddd bytes
  12. **           reads up to a nul byte if ddd is zero or missing
  13. **   cnnn  means read a character field of nnn bytes (not nul-terminated)
  14. **           reads one byte if nnn is zero or missing
  15. */
  16.  
  17. #include "stdio.h"
  18. #include "stdlib.h"
  19. #include "stdarg.h"
  20.  
  21. typedef unsigned short int16;
  22. typedef unsigned long int32;
  23.  
  24. #define int16swap(n)  (*n = (*n << 8) | (*n >> 8))
  25.  
  26. #define int32swap(n)  (\
  27.                         int16swap(&((int16 *)n)[0]),\
  28.                         int16swap(&((int16 *)n)[1]),\
  29.                         *n = (*n << 16) | (*n >> 16)\
  30.                         )
  31.  
  32. #define maxk 32767
  33.  
  34. int fscanbin (FILE *fp, char *format, ...)
  35. {
  36.       va_list argp;
  37.       unsigned char *p;
  38.       unsigned k;
  39.       int c;
  40.       char *charp;
  41.       int16 *int16p;
  42.       int32 *int32p;
  43.       int bytes_read;
  44.  
  45.       bytes_read = 0;
  46.       va_start(argp, format);
  47.       for ( p = (unsigned char *)format; *p; )
  48.       {
  49.             switch( *p & 0xFF )
  50.             {
  51.             case '-':
  52.                   for ( k = 0, c = *++p; isdigit(c); c = *++p )
  53.                         k = 10 * k + c - '0';
  54.                   if ( k == 0 )
  55.                         k = 1;
  56.                   if ( fseek(fp, (long)k, SEEK_CUR) )
  57.                         return -2;     /* i/o error */
  58.                   bytes_read += k;
  59.                   break;
  60.  
  61.             case 'i':
  62.                   int16p = va_arg(argp, int16 *);
  63.                   if ( fread((void *)int16p, sizeof(int16), 1, fp) != 1 )
  64.                         return -2;     /* i/o error */
  65. #if SWAP16
  66.                   int16swap(int16p);
  67. #endif
  68.                   p++;
  69.                   bytes_read += sizeof(int16);
  70.                   break;
  71.  
  72.             case 'l':
  73.                   int32p = va_arg(argp, int32 *);
  74.                   if ( fread((void *)int32p, sizeof(int32), 1, fp) != 1 )
  75.                         return -2;     /* i/o error */
  76. #if SWAP32
  77.                   int32swap(int32p);
  78. #endif
  79.                   p++;
  80.                   bytes_read += sizeof(int32);
  81.                   break;
  82.  
  83.             case 's':
  84.                   charp = va_arg(argp, char *);
  85.                   for ( k = 0, c = *++p; isdigit(c); c = *++p )
  86.                         k = 10 * k + c - '0';
  87.                   do
  88.                   {
  89.                         c = getc(fp);
  90.                         if ( c == EOF )
  91.                               return -2;
  92.                         *charp++ = c;
  93.                         bytes_read++;
  94.                   } while ( c && (k == 0 || --k) );
  95.                   break;
  96.  
  97.             case 'c':
  98.                   charp = va_arg(argp, char *);
  99.                   for ( k = 0, c = *++p; isdigit(c); c = *++p )
  100.                         k = 10 * k + c - '0';
  101.                   if ( k == 0 )
  102.                         k = 1;
  103.                   if ( fread((void *)charp, sizeof(char), k, fp) != k )
  104.                         return -2;     /* i/o error */
  105.                   bytes_read += k;
  106.                   break;
  107.  
  108.             default:
  109.                   return -1; /* bad format */
  110.             }
  111.       }
  112.       va_end(argp);
  113.       return bytes_read;
  114. }
  115.